list_of_packages <- c("tidyverse", "readxl", "here", "janitor", "DT")
new_packages <- list_of_packages[!(list_of_packages %in% installed.packages()[,"Package"])]
if(length(new_packages)) install.packages(new_packages)



library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──
## ✓ ggplot2 3.3.3     ✓ purrr   0.3.4
## ✓ tibble  3.1.0     ✓ dplyr   1.0.5
## ✓ tidyr   1.1.2     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(readxl)
library(here)
## here() starts at /home/francisko/coding/r/planilha-banessa
library(janitor)
## 
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
library(DT)

Código

(ordem <-
   readxl::read_xlsx(
     path = here::here("data", "Dados planilha.xlsx"),
     sheet = 1
   ) %>%
   janitor::clean_names() %>% 
   pull(ordem_dos_dados))  
##  [1] "Sobic.003G403000.1.v2.1" "Sobic.003G148500.1.v2.1"
##  [3] "Sobic.002G068400.1.v2.1" "Sobic.010G179100.1.v2.1"
##  [5] "Sobic.002G088000.1.v2.1" "Sobic.004G119600.1.v2.1"
##  [7] "Sobic.003G338700.1.v2.1" "Sobic.003G187800.1.v2.1"
##  [9] "Sobic.010G180900.1.v2.1" "Sobic.003G128700.1.v2.1"
## [11] "Sobic.003G397000.1.v2.1" "Sobic.010G070300.1.v2.1"
## [13] "Sobic.004G188700.1.v2.1" "Sobic.005G065700.1.v2.1"
## [15] "Sobic.003G033600.1.v2.1" "Sobic.002G255000.1.v2.1"
## [17] "Sobic.003G384700.1.v2.1" "Sobic.002G368700.1.v2.1"
## [19] "Sobic.003G292800.1.v2.1" "Sobic.002G083000.2.v2.1"
## [21] "Sobic.002G032900.2.v2.1" "Sobic.004G154900.2.v2.1"
## [23] "Sobic.005G033900.1.v2.1" "Sobic.004G180400.1.v2.1"
## [25] "Sobic.002G319100.1.v2.1" "Sobic.002G411000.1.v2.1"
## [27] "Sobic.004G314900.1.v2.1" "Sobic.003G112300.1.v2.1"
## [29] "Sobic.010G099300.1.v2.1" "Sobic.010G078800.1.v2.1"
## [31] "Sobic.003G064800.1.v2.1" "Sobic.010G097800.1.v2.1"
## [33] "Sobic.010G057300.1.v2.1" "Sobic.010G194300.1.v2.1"
## [35] "Sobic.002G356300.1.v2.1" "Sobic.003G320600.1.v2.1"
## [37] "Sobic.003G432600.1.v2.1" "Sobic.010G131600.1.v2.1"
## [39] "Sobic.003G024700.1.v2.1" "Sobic.004G307700.1.v2.1"
## [41] "Sobic.003G423200.1.v2.1" "Sobic.003G405300.1.v2.1"
## [43] "Sobic.004G302200.1.v2.1" "Sobic.004G105100.1.v2.1"
## [45] "Sobic.004G107000.1.v2.1" "Sobic.004G120000.1.v2.1"
## [47] "Sobic.009G250500.1.v2.1" "Sobic.004G265400.1.v2.1"
## [49] "Sobic.010G207700.1.v2.1" "Sobic.002G328300.2.v2.1"
## [51] "Sobic.004G348700.1.v2.1" "Sobic.003G302400.1.v2.1"
## [53] "Sobic.003G241000.3.v2.1" "Sobic.001G013600.1.v2.1"
## [55] "Sobic.010G082600.1.v2.1" "Sobic.004G179600.1.v2.1"
## [57] "Sobic.005G074400.1.v2.1" "Sobic.010G085000.1.v2.1"
## [59] "Sobic.004G176100.1.v2.1" "Sobic.003G293900.1.v2.1"
## [61] "Sobic.009G253800.1.v2.1" "Sobic.002G193300.2.v2.1"
## [63] "Sobic.003G419300.2.v2.1" "Sobic.003G049800.1.v2.1"
## [65] "Sobic.010G095400.1.v2.1" "Sobic.005G034600.1.v2.1"
## [67] "Sobic.010G264300.1.v2.1" "Sobic.004G006700.1.v2.1"
## [69] "Sobic.005G050600.1.v2.1" "Sobic.002G405000.1.v2.1"
## [71] "Sobic.003G424800.2.v2.1" "Sobic.002G404600.1.v2.1"
## [73] "Sobic.004G272600.1.v2.1" "Sobic.003G409600.1.v2.1"
## [75] "Sobic.004G015400.1.v2.1" "Sobic.002G213600.1.v2.1"
## [77] "Sobic.003G068000.1.v2.1" "Sobic.004G183200.1.v2.1"
## [79] "Sobic.004G259800.1.v2.1" "Sobic.002G043300.1.v2.1"
## [81] "Sobic.002G233800.1.v2.1" "Sobic.004G053400.1.v2.1"
## [83] "Sobic.002G174200.1.v2.1" "Sobic.003G286200.1.v2.1"
## [85] "Sobic.002G163500.1.v2.1"
(data <- readxl::read_xlsx(path = here::here("data", "Dados planilha.xlsx"), sheet = 2) %>% 
   dplyr::rename(list_6 = `List 6`) %>% 
   dplyr::arrange(factor(list_6, levels = ordem))) 
## # A tibble: 85 x 17
##    list_6  BR007_2_noAl BR007_2_A BR007_5_noAl BR007_5_Al BR012_2_noAl BR012_2_A
##    <chr>          <dbl>     <dbl>        <dbl>      <dbl>        <dbl>     <dbl>
##  1 Sobic.…      12.8       0.555       32.1        0.0137      56.4       5.92  
##  2 Sobic.…       2.68      0.256        1.03       0            1.42      0.112 
##  3 Sobic.…       0.343     0            0.378      0            1.04      0     
##  4 Sobic.…       0         0            0          0            0.312     0.0294
##  5 Sobic.…       0.148     0.0187       0.0684     0.0131       0         0.0451
##  6 Sobic.…       3.21      1.06         2.77       0.0208       5.60      0.834 
##  7 Sobic.…       0.296     0            0.342      0.0321       1.27      0.114 
##  8 Sobic.…       0         0            0          0            2.28      0.448 
##  9 Sobic.…       0.0464    0            0.0274     0.0105       0.0458    0.0175
## 10 Sobic.…      23.4       5.69        14.3        2.02        27.4       5.71  
## # … with 75 more rows, and 10 more variables: BR012_5_noAl <dbl>,
## #   BR012_5_Al <dbl>, SC283_2_noAl <dbl>, SC283_2_Al <dbl>, SC283_5_noAl <dbl>,
## #   SC283_5_Al <dbl>, SC566_2_noAl <dbl>, SC566_2_Al <dbl>, SC566_5_noAl <dbl>,
## #   SC566_5_Al <dbl>

Aqui o resultado

data %>%  
  DT::datatable(extensions = 'Buttons',
                options = list(dom = 'Blfrtip',
                               buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                               lengthMenu = list(c(10,25,50,-1),
                                                 c(10,25,50,"All"))))